(load "netpbm.lisp")

(netpbm:map-image (lambda (pixel)
		    (vector 0 (aref pixel 1) (aref pixel 2)))
		  (netpbm:read-header *standard-in*))

